home *** CD-ROM | disk | FTP | other *** search
/ Professor Iris Fun Field Trip: Seaside Adventure / Professor Iris - Fun Field Trip: Seaside Adventure.iso / pc / discovry / shared.dir / 00901_Language Bar-sprite script.ls < prev    next >
Encoding:
Text File  |  1995-05-03  |  675 b   |  27 lines
  1. on mouseDown
  2.   pickLanguage()
  3. end
  4.  
  5. on mouseUp
  6.   global gPageNum, gWhichLang, QTspriteNum, gWhichLangNum, gWhichLangChoice, gCategoryName
  7.   if gCategoryName = "S" then
  8.     if rollOver(the clickOn) then
  9.       set gWhichLangNum to gWhichLangChoice
  10.       whichLangNumToLet()
  11.       sendLangBarIn()
  12.       puppetSprite(QTspriteNum, 0)
  13.       go(gPageNum & gWhichLang)
  14.     end if
  15.   else
  16.     if gCategoryName = "R" then
  17.       if rollOver(the clickOn) then
  18.         set gWhichLangNum to gWhichLangChoice
  19.         whichLangNumToLet()
  20.         setAt(value("Page" & gPageNum & "ReadList"), gWhichLangNum, 0)
  21.         sendLangBarIn()
  22.         go("ReadPoem")
  23.       end if
  24.     end if
  25.   end if
  26. end
  27.